Select Code to Download

#!/usr/bin/perl
use strict;
...

print "/(?<=\\t)\w+/:\n" . $string1 . "\n";
print "/\\t\w+/:\n" . $string2 . "\n";

Testing         this regex
/(?<=\t)w+/:
this
/\tw+/:
        this