matched ''
Use of uninitialized value $str in pattern match (m//) at C:\Users\Peter\Delme~~\PerlScratch\noname.pl line 8.
matched ''
Use of uninitialized value $str in concatenation (.) or string at C:\Users\Peter\Delme~~\PerlScratch\noname.pl line 8.