#!/usr/bin/perl -ln

use strict;
use warnings;

if ($_ eq 'ORIGIN') {
    local $/='//';
    print <>;
}


##</code><code>##

#!/usr/bin/perl -ln

use strict;
use warnings;

print if $_ eq 'ORIGIN' .. $_ eq '//'
  
__END__


##</code><code>##

open (FILE, $ARGV[0]) or die "unable to open FILE\n";