Select Code to Download

ok(sub{$str =~ /abc/}, "string matches");

ok($str =~ /abc/, "string matches");

#!/usr/bin/perl
use strict;
...
    my $str = "aaa";
    $str =~ m/abc/;
}

sub ok
return fail