match perl code