http://qs321.pair.com?node_id=1178408


in reply to Removing multiple trailing comment lines from a string

$s =~ s/\n;.*\Z// for 1..3;

- tye