- or download this
my ($pattern,$id) = (split /\s+/, $_)[0,4];
- or download this
my ($pattern, $id) = (split /\s+/)[0, 2];
- or download this
if ( $_ =~ m/^$pattern/ ) {
- or download this
...
my $pattern_to_find = '4567';
...
...
if ($pattern eq $pattern_to_find) {
...