Select Code to Download

#!/usr/bin/perl
use strict;
...
print "before `$string'\n"; # abc
modify $string;
print "after  `$string'\n"; # xbc