Select Code to Download

my ($pattern,$id) = (split /\s+/, $_)[0,4];

my ($pattern, $id) = (split /\s+/)[0, 2];

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

...
my $pattern_to_find = '4567';
...
    ...
    if ($pattern eq $pattern_to_find) {
        ...