perl -e '$string="abcX123"; $string =~ /X+?(\S+)/; print $1;'