Bash find & replace using regex pipe

For group replacements, use $1, $2, etc.

perl -pe 's/(\d+).*/\1/g'