Select Code to Download

while (<>) {
        next if /^$/;
        print;
    }

$text = "A'B'C" ;
$text = replacequote($text);
...
}
return $X;
}