Or to avoid matching twice:

while (<INFILE>) {
    if (s/^.*$String//) {                              
        print;        
    }
}
[download]