Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -ln

use strict;
...
    local $/='//';
    print <>;
}
  2. or download this
    #!/usr/bin/perl -ln

...
print if $_ eq 'ORIGIN' .. $_ eq '//'
  
__END__
  3. or download this
    open (FILE, $ARGV[0]) or die "unable to open FILE\n";