#!/usr/local/bin/perl5

{local $/; $file=<>;}
$file =~ s/\n/ /gs;
$file =~ s[<a href.*?=.*?>][<a href="http://teenexploitation.com">]igs;

print $file;