Select Code to Download

use strict;
use warnings;
...
    $whatever =~ s/foo/bar/;  # match
    print "3: $1 $2 $3\n";    # "Use of uninitialized value..."
}