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