[lowprivuser@localhost testing]$ perl regexp-check2.pl abcd\"efg

 Funny business with variables occuring, have attempted to fix
dollartest before fixing = abcd"efg
dollartest after fixing = abcd"efg
the validated text is: abcd"efg

[lowprivuser@localhost testing]$ perl regexp-check2.pl abcdefg1

Text clean

the validated text is: abcdefg1

[lowprivuser@localhost testing]$