meSUBstring1; 
youSUBstring2; 
ISUBstring3 
string4; 
noSUBstring5;

#!/usr/bin/perl 
 
use strict; 
use warnings FATAL => qw(all); 
use diagnostics; 
 
my $qnso="C:/Users/me/Desktop/Perl_Test/temp/test.log"; 
my $qpar="x"; 
 
open (NSOFILE, "<", $qnso) or die "No file!"; 
while ($qpar = <NSOFILE>){ 
	if ($qpar =~ /SUB.*[^;]\n?/m){print $qpar;} 
} 
close (NSOFILE);

meSUBstring1; 
youSUBstring2; 
ISUBstring3 
noSUBstring5;