20 lines
135 B
Perl
20 lines
135 B
Perl
|
|
||
|
|
while (<DATA>) {
|
||
|
|
print;
|
||
|
|
}
|
||
|
|
__DATA__
|
||
|
|
Here
|
||
|
|
is
|
||
|
|
the
|
||
|
|
text!
|
||
|
|
|
||
|
|
|
||
|
|
while (<DATA>) {
|
||
|
|
print;
|
||
|
|
}
|
||
|
|
__END__
|
||
|
|
Here
|
||
|
|
is
|
||
|
|
the
|
||
|
|
text!
|