Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
foreach my $line ( @strings ) {
    print "Matched $line.\n" if $line =~ /to (.*?) is/i;
}

Select or download this

Matched data to gbsdff03dfif7 is.
Matched data to HP650dfgd-Af452 is.