Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $string = "foo.bar.foobar";
my ($val1,$val2) = split /\.(?!.*\.)/,$string;
print "$val1,$val2\n";

#!/usr/bin/perl -w
use strict;
...
  substr($string,$position)
);
print "$val1,$val2\n";