#!/usr/bin/perl -wl
use strict;

$main::var       =  "a rose by ";         #$main::var
$main'var        =  $'var."another name"; #$main::var again

use vars q($var);
$var             =~ s/(\b\w)/uc($1)/ge;  #$main::var 
$var             =~ /N/;
print $'var;                              #print $main::var

print 'G'.$'." With $'var";               #games with $'

use English;
print "s$' and s$POSTMATCH";