Select Code to Download

#!/usr/local/bin/perl

...
$str2 = "zzzza---..bcddddd";
$str2 =~ /($str)/;
print $1,"\n";