if ( /\d{1,}\*/ ) { print "$_\n"; }