#!/usr/bin/perl -ln

use strict;
use warnings;

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