Perl Programming/Regular expression operators