Select Code to Download

Select or download this

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

Select or download this

  PID USER      PR  NI    VIRT    RES    SHR S  %CPU  %MEM     TIME+ C
+OMMAND
 7164 choroba   20   0 1970364 1.858g   3508 R 48.00 24.04   0:00.48 p
+erl
...
 7166 choroba   20   0 1970364 1.866g   3564 S 0.000 24.15   0:00.49 p
+erl
 7166 choroba   20   0 1970364 1.866g   3564 S 0.000 24.15   0:00.49 p
+erl
 7166 choroba   20   0 1970364 1.866g   3564 S 0.000 24.15   0:00.49 p
+erl

Select or download this

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

Select or download this

($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,