perl -nlwe" m[s*(\S+)\s*] and print $1*2" data\1millionlines.dat