while (<STDIN>) {
    $MyString = $MyString . $_ unless ( /\d/ );
}