Help for this page
>perl -wMstrict -le "$_ = 'BLAH01-ARRRGH0GAG'; ... print qq{'$_'}; " 'BLAH01BLAH01-ARRRGH0GAG'
>perl -wMstrict -le "use 5.010; ... print qq{'$_'}; " 'BLAH01-A'