$text .= substr($source,$pos[2],$pos[18]-$pos[2]);

##</code><code>##

       $text .= " " . substr($source,$pos[2],$pos[18]-$pos[2]);

##</code><code>##

#!/usr/bin/perl -w

use strict;
use Switch;

my $x = 2 ? 'foo' : 'bar';

switch('x'){
  case 'y'              {print "y\n"}
  else                  {print "x\n"}
}

# ?

##</code><code>##

Bareword "case" not allowed while "strict subs" in use at ./Shell.pl line
9.
Unquoted string "case" may clash with future reserved word at ./Shell.pl
line 9.
String found where operator expected at ./Shell.pl line 9, near "case 'y'"
        (Do you need to predeclare case?)
syntax error at ./Shell.pl line 9, near "case 'y'"
Execution of ./Shell.pl aborted due to compilation errors.

##</code><code>##

Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
  Platform:
    osname=linux, osvers=2.2.15pre14, archname=i386-linux
    uname='linux them 2.2.15pre14 #2 smp mon mar 13 14:29:00 est 2000 i686 unknown '
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='cc', optimize='-O2 ', gccversion=2.95.2 20000313 (Debian GNU/Linux)
    cppflags='-Dbool=char -DHAS_BOOL -D_REENTRANT -DDEBIAN -I/usr/local/include'
    ccflags ='-Dbool=char -DHAS_BOOL -D_REENTRANT -DDEBIAN -I/usr/local/include'
    stdchar='char', d_stdstdio=undef, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -lndbm -lgdbm -ldbm -ldb -ldl -lm -lc -lposix -lcrypt
    libc=, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
    cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'


Characteristics of this binary (from libperl): 
  Built under linux
  Compiled at Apr 30 2000 12:08:38
  @INC:
    /usr/lib/perl5/5.005/i386-linux
    /usr/lib/perl5/5.005
    /usr/local/lib/site_perl/i386-linux
    /usr/local/lib/site_perl
    /usr/lib/perl5
    .