Select Code to Download

#!/usr/bin/perl
print "get some string: ";
chomp($string = <STDIN>);
...
print "$1\n";

exit 0;

~/sandbox$ perl junk.pl
get some string: /xxxx/yyyy/ZZZ_xxxx.CCC
ZZZ
CCC
/xxxx/yyyy/ZZZ_xxxx