Select Code to Download

  my $a = "foo";
  my $b = "bar";
...
  print "ne" if ($a ne $a);    # prints nothing
  print "RE" if $a =~ /$c/;    # prints "RE"
  print "RE" if $a =~ /f.*/;    # prints "RE"

#!/usr/bin/perl -w

...
  # Everything that is found is deleted from the start of
  # the string.
  # repeat as long as there is stuff in the slurped line