$ perl -le' $_ = "ACER ASPIRE SERIES AS1954-526352BN"; print; s/AS(?=\d)//g; print; ' ACER ASPIRE SERIES AS1954-526352BN ACER ASPIRE SERIES 1954-526352BN