my $reverse = reverse $line;
$reverse =~ s| \w* ; \s* > |>|x;
$line = reverse $reverse;