Select Code to Download

#!/usr/bin/perl

...
$string =~ s/;(?=.*;)//g;

print $string;

./r.pl
I have in my string replace all but last one;