Help for this page
perl -e 'my $x = "abcdefg" =~ /(cd)/; print "$x\n";'
perl -e 'my ($x) = "abcdefg" =~ /(cd)/; print "$x\n";'
my($this, $that) = $string =~ /abc(def).+?(pq)$/;
A foolish day
Just another day
Internet cleaning day
The real first day of Spring
The real first day of Autumn
Wait a second, ... is this poll a joke?
Results (472 votes),