Select Code to Download

use strict;
use warnings;

open my $fh,'<', 'input1.txt' or die; 
while (<$fh>) {print if /b/}

aaa
bbb
ccc

perl webperlizator.pl  -s simple_reader.pl -i input1.txt

...
%22%3A%22use%20strict%3B%5Cnuse%20warnings%3B%5Cn%5Cnopen%20my%20%24fh
+%2C%27%3C%27%2C%20%27input1.txt%27%20or
%20die%3B%20%5Cnwhile%20%28%3C%24fh%3E%29%20%7Bprint%20if%20%2Fb%2F%7D
+%22%2C%22inputs%22%3A%5B%7B%22text%22%3
A%22aaa%5Cnbbb%5Cnccc%5Cn%22%2C%22fn%22%3A%22input1.txt%22%7D%5D%2C%22
+cmdline%22%3A%22perl%20simple_reader.pl%22%7D

use strict;
use warnings;
...
    
EOH
}