$s =~ s/^;.*\Z//m; chomp $s; $s =~ s/^;.*\Z//m; chomp $s; $s =~ s/^;.*\Z//m; chomp $s; #### $s =~ s/^;.*\Z//m; #### s/\n;.*\Z//