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