Help for this page
my $sth = $dbh->prepare("SELECT SUBSTR(row_data, 2, INSTR (row_data ... REPLACE (SUBSTR (row_data, INSTR (row_data, '~', 1, 22) + 2),' "',' ') ...
my $sql = <<SQL; SELECT SUBSTR(row_data, 2, INSTR (row_data ... REPLACE (SUBSTR (row_data, INSTR (row_data, '~', 1, 22) + 2),' "', +' ') ... SQL
my $sql = qq{ ... ... };