perl -le 'print 0+"3.1415pi--roughly"'
3.1415