Select Code to Download

my @splits = split(/\./,$string,-2);

#!/usr/bin/perl -w
use strict;
...
$val2 = reverse($val2);

print "$val1, $val2\n";