Select Code to Download

my $str= "1_abc/2_def/bla_30_31_blah"; 
my $count= 0; 
...
    $str =~ s///; 
} 
print "\$str=($str)\n";

s/\d+_// for 1..2;