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