perl -e '$fn=shift @ARGV;open FN, $fn;print while ();print "\nInput :";print ;' num.txt #### 148142210062219227200135214135060215280066149205230143199168163229197209 Input :test test