my $text = "mississippi";
$text =~ m/(i.*s)/;
print $1 . "\n";

##</code><code>##

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