or maybe a greedy regex?
$line =~ s/^(.*>) ;.*/\1;/; [download]
In reply to Re: Re: parsing question by Chady in thread parsing question by Washie101