set line "\"/home/tclshell/test.tcl.gz\""regexp {"?(\S+\.tcl(?:\.gz)?)} $line blank mypathputs $mypath
Standard input is empty
/home/tclshell/test.tcl.gz
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!