Select Code to Download

while (<INPUT>) {
    my ( $msg ) = ( /msg=(.*?) Src \d+ / );
    # do something with $msg...
}

while (<INPUT>) {
    next unless ( s/^([\d-]+)\s+([\d:]+)\s+(\S+)\s+// );
...

    # do stuff with %flds and other vars...
}