Pattern matching in Perl.