Folks coming from a sed or awk background tend to assume that '$' and '^' match the beginning and and of the line, rather than then beginning and ed of the string. Adding the '/m' flag to your regex makes it behave as most people expect it should.

  my $match = m{ ^ $pattern $ }x;  #not ok
  my $match = m{ ^ $pattern $ }xm; #ok


For common regular expressions like e-mail addresses, phone numbers, dates, etc., have a look at the the Regex::Common manpage module. Also, be cautions about slapping modifier flags onto existing regular expressions, as they can drastically alter their meaning. See http://www.perlmonks.org/ for an interesting discussion on the effects of blindly modifying regular expression flags.


Jeffrey Ryan Thalhammer <thaljef@cpan.org>


Copyright (c) 2005-2007 Jeffrey Ryan Thalhammer. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. The full text of this license can be found in the LICENSE file included with this module.