Help for this page
my $line = "PID: AIR-LAP1142N-A-K9 , VID: V01, SN: FTX1332SC15"; $line =~ m/(AIR)-LAP1142N-A-K9/; print $1 . "\n";