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