Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my ($rest) = $string =~ m/\G(.*)$/;

print "$rest\n";

foo bar baz bar quux foo gin