Select Code to Download

#!/usr/bin/env perl -l

...
    (my $got = $string) =~ s/$re/>$1<>$1</g;
    is($got, $exp, "Testing: $string");
}

1..10
ok 1 - Testing: 12
...
# 345
# 6789
# 0