#!/usr/bin/perl 

use strict;
use warnings;
use PPI;
use PPI::Dumper;

my $data;
($data = <<'ENDOFSQL') =~ s/Something/else/;
Something
ENDOFSQL

my($Document) = PPI::Document->new(\$data);
my $Dumper = PPI::Dumper->new($Document);
$Dumper->print;