Select Code to Download

#! /usr/bin/perl -w
use strict;
...
print "New string: $new_str$/";

__END__

my $new_str = ( grep { /makefile$/ } split /\s+/, $old_str )[0];