echo 5* | perl -e "while (<>) {print $_ if /\d{1,}\*/}"