#!/usr/bin/perl -ln

use strict;
use warnings;

BEGIN {@ARGV=map glob, @ARGV} # You're under Win*, aren't you?

next unless /$whatever (\w+) $whatever/;
print "whatever: $1";

__END__