Select Code to Download

if ($text =~ /^(?:REGISTER|INVITE|BYE)\s\w+[-@_]\w+\.\w+\sSIP\/2\.0/)
{
    print "IN:$text\n";
}