if ( my $line =~ m/.../ ) { ... }