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: ^