A bozo's blog
cat /media/host/vbox.txt | perl -e 'while (<>) { print "'"'"'$1'"'"',\n" if /^(\d+)/; }'
