Select Code to Download

my $text='abc-123'; 

if ( $text =~ /(abc)-(\d{3})/) { 
...
    push @IPs, $1;
    push @MACs, $2;
}