my $bigstring;
{ local $/; $bigstring = <FILE>; }


##</code><code>##

  PID USER      PR  NI    VIRT    RES    SHR S  %CPU  %MEM     TIME+ COMMAND
 7164 choroba   20   0 1970364 1.858g   3508 R 48.00 24.04   0:00.48 perl
 7164 choroba   20   0 1970364 1.866g   3508 S 0.990 24.15   0:00.49 perl
 7164 choroba   20   0 1970364 1.866g   3508 S 0.000 24.15   0:00.49 perl
 7164 choroba   20   0 1970364 1.866g   3508 S 0.000 24.15   0:00.49 perl
 7164 choroba   20   0 1970364 1.866g   3508 S 0.000 24.15   0:00.49 perl

 7166 choroba   20   0 1970364 1.866g   3564 S 48.51 24.15   0:00.49 perl
 7166 choroba   20   0 1970364 1.866g   3564 S 0.000 24.15   0:00.49 perl
 7166 choroba   20   0 1970364 1.866g   3564 S 0.000 24.15   0:00.49 perl
 7166 choroba   20   0 1970364 1.866g   3564 S 0.000 24.15   0:00.49 perl
 7166 choroba   20   0 1970364 1.866g   3564 S 0.000 24.15   0:00.49 perl


##</code><code>##

perl -wE 'my $string = do { local $/; <> }; say length $string; sleep 5' 2g
perl -wE 'my $string ; { local $/; $string = <> }; say length $string; sleep 5' 2g


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,