#!/usr/bin/perl -w

use strict;

my $compressed = q#100692222~GBP~ACTIVE~0~1~<additionalinfo>The Horses Are\:<br><br>1. Arakan Trail<br>2. Banyan Tree<br>3. Luddenmore<br>4. Maverick Man<br>5. Stunning View<br>6. The Bay Bandit<br>7. Tramps Like Us<br>8. Zayaan<br>~true~5.0~1248714022799~~N:2521889~1~4.0~1.2~~~false~~~~|5.0~4.77~L~1~1.4~15.34~L~2~1.01~8682.94~L~3~|:2521890~2~0.0~~~~false~~~~|1.24~17.34~L~1~1.23~2.5~L~2~1.21~2.6~L~3~|:2521892~3~0.0~~~~false~~~~|1.24~17.34~L~1~1.23~2.5~L~2~1.21~2.6~L~3~|:2521895~4~0.0~~~~false~~~~|5.0~2.16~L~1~1.4~17.34~L~2~1.01~8682.94~L~3~|:2521899~5~0.0~~~~false~~~~|1.24~17.34~L~1~1.23~2.5~L~2~1.21~2.6~L~3~|:2521904~6~0.0~~~~false~~~~|1.24~17.34~L~1~1.23~2.5~L~2~1.21~2.6~L~3~|:2521913~7~0.0~~~~false~~~~|1.24~17.34~L~1~1.23~2.5~L~2~1.21~2.6~L~3~|:2521891~8~0.0~~~~false~~~~|1.21~2.6~L~1~1.2~17.34~L~2~1.01~8682.94~L~3~|:2521893~9~0.0~~~~false~~~~|1.2~17.34~L~1~1.01~8682.94~L~2~|:2521896~10~0.0~~~~false~~~~|1.7~20.0~L~1~1.4~17.34~L~2~1.01~8682.94~L~3~|:2521900~11~0.0~~~~false~~~~|1.23~2.5~L~1~1.22~17.34~L~2~1.21~2.6~L~3~|:2521905~12~0.0~~~~false~~~~|1.21~2.6~L~1~1.2~17.34~L~2~1.01~8682.94~L~3~|:2521914~13~0.0~~~~false~~~~|1.2~17.34~L~1~1.01~8682.94~L~2~|:2521894~14~0.0~~~~false~~~~|1.21~2.6~L~1~1.2~17.34~L~2~1.01~8682.94~L~3~|:2521897~15~0.0~~~~false~~~~|1.2~17.34~L~1~1.01~8682.94~L~2~|:2521901~16~0.0~~~~false~~~~|1.23~2.5~L~1~1.22~17.34~L~2~1.21~2.6~L~3~|:2521908~17~0.0~~~~false~~~~|1.23~2.5~L~1~1.22~17.34~L~2~1.21~2.6~L~3~|:2521915~18~0.0~~~~false~~~~|1.21~5.1~L~1~1.2~17.34~L~2~1.01~8682.94~L~3~|:2521898~19~0.0~~~~false~~~~|1.2~17.34~L~1~1.01~8682.94~L~2~|:2521902~20~0.0~~~~false~~~~|1.24~17.34~L~1~1.23~2.5~L~2~1.21~2.6~L~3~|:2521909~21~0.0~~~~false~~~~|1.23~2.5~L~1~1.22~17.34~L~2~1.21~2.6~L~3~|:2521916~22~0.0~~~~false~~~~|1.21~2.6~L~1~1.2~17.34~L~2~1.01~8682.94~L~3~|:2521903~23~0.0~~~~false~~~~|1.22~17.34~L~1~1.21~2.6~L~2~1.01~8682.94~L~3~|:2521910~24~0.0~~~~false~~~~|1.21~2.6~L~1~1.2~17.34~L~2~1.01~8682.94~L~3~|:2521917~25~0.0~~~~false~~~~|1.2~17.34~L~1~1.01~8682.94~L~2~|:2521911~26~0.0~~~~false~~~~|1.23~2.5~L~1~1.22~17.34~L~2~1.21~2.6~L~3~|:2521918~27~0.0~~~~false~~~~|1.22~17.34~L~1~1.21~5.1~L~2~1.01~8682.94~L~3~|:2521919~28~0.0~~~~false~~~~|1.23~2.5~L~1~1.22~17.34~L~2~1.21~2.6~L~3~|#;
print "($compressed)\n";
if($compressed =~ /\\/) {    
    	$compressed =~ s/\\:/x01/g;
    	$compressed =~ s/\\|/x02/g;
    	$compressed =~ s/\\~/x03/g;
    	$compressed =~ s/\\\\/x04/g;
    }
    print "After ($compressed)\n";