#!/usr/local/bin/pugs

my $pattern = @*ARGS.shift;

my $foo;

while ($foo = =<>) {
  print $foo if $foo ~~ m:perl5/$pattern/;
}