3 deleted 1 characters in body
source | link

With awk

awk '{sub("\\/\..*"*/,"",$2);$0=$1 "  "$2}1' foo.txt

With sed

sed 's/^\(\([^.]*\.\)\{4\}\).*$/\1/;s/\.$//' foo.txt

With awk

awk '{sub("\\..*","",$2);$0=$1 "  "$2}1' foo.txt

With sed

sed 's/^\(\([^.]*\.\)\{4\}\).*$/\1/;s/\.$//' foo.txt

With awk

awk '{sub(/\..*/,"",$2);$0=$1 "  "$2}1' foo.txt

With sed

sed 's/^\(\([^.]*\.\)\{4\}\).*$/\1/;s/\.$//' foo.txt
2 added 84 characters in body
source | link

With awk

awk '{gsubsub("\\..*","",$2);$0=$1 "  "$2}1' foo.txt

With sed

sed 's/^\(\([^.]*\.\)\{4\}\).*$/\1/;s/\.$//' foo.txt
awk '{gsub("\\..*","",$2);$0=$1 "  "$2}1' foo.txt

With awk

awk '{sub("\\..*","",$2);$0=$1 "  "$2}1' foo.txt

With sed

sed 's/^\(\([^.]*\.\)\{4\}\).*$/\1/;s/\.$//' foo.txt
1
source | link

awk '{gsub("\\..*","",$2);$0=$1 "  "$2}1' foo.txt