Select Code to Download

1st string = _test(followed by 1 or more spaces)
2nd string = _test <"value">

if ($line =~ m/(_test)(\s+)/)
   { print "found.\n" }