#!/usr/bin/perl
 
my $str = "'SELECT * FROM TABLE WHERE COLUMN = \\'text\\'' "; 
 print "$str\n";
if ( $str =~ /'([^'\\]*(?:\\.[^'\\]*)*)'/ ) {
	print "$1\n";
	}