if ( $_ =~ m/^$pattern/ ) {