Mega Code Archive

 

Categories / Perl / Regular Expression

 

Match zero or one characters

$p = "This is a pattern test."; if ($p =~ /(\w)?/){ print "$1\n"; }