Select Code to Download

#!/usr/bin/perl
use warnings;
...
if (($data =~ m/^\-\w/) || ($data =~ m/^\-/)) {
    say 1;
}

($data =~ m/^\-\w/) || ($data =~ m/^\-/)

$data =~ /^-/