#!/usr/bin/perl open(BASE, 'base.txt'); chomp(@bas = <BASE>); close(BASE); open(OUT, ">> out.txt"); foreach $num (@bas) { print OUT "+7$num\n"; } close(OUT);
$ perl -lne 'print "+7$_"' 1.txt > 2.txt