$str =~ s/^(hello kitty )0*(\d+)(x\d+.*)$/$1$2$3/;