my $to_parse = q(my $thisRocks = "    That's what I said!";);

my @tokens = get_tokens($to_parse);
# The elements in @tokens will look something like:
# 
# 0: my
# 1: $thisRocks
# 2: =
# 3: "    That's what I said!"
# 4: ;
# 

# Now you can just print them out
print @tokens;

__OUTPUT__
my$thisRocks="    That's what I said!";