Select Code to Download

#!/usr/bin/perl -w
use strict;
my $match= "hi";
...
print "\$match is $match\n";
print "'slow' matches (", 'slow' =~ $re, ")\n";
print "'chimp' matches (", 'chimp' =~ $re, ")\n";

$match is hi
'chimp' matches (hi)
$match is lo
'slow' matches ()
'chimp' matches (hi)