#!/usr/bin/perl use strict; use warnings; use AmpKiller; "foo" =~ /o/; if (@ARGV) { print $&, "\n"; } print "The End\n"; __END__ The End