my $var; if ($string =~ /$capture_regex/) { $var = $1; } #### my ($var) = $string =~ /$capture_regex/; #### next unless $string =~ /$capture_regex/; my $var = $1; #### my $var; if ($string =~ /$capture_regex/) { $var = $1; } else { # ... issue warning, make a log entry, or whatever ... next; } #### $ grep soft /usr/share/dict/words | wc -l 30 $ grep ^soft /usr/share/dict/words | wc -l 22 #### / \b (?: soft | softer | softest ) \b /ix #### #!/usr/bin/env perl use strict; use warnings; my $date_re = qr{(?x: ^