#!/usr/bin/perl

open FILE, "<isa_log.txt";
open WFILE, ">isa_log_decode.txt" or die $!;

my @lines = <FILE>;
foreach $lines (@lines) {
  print "$lines";
  $str = urldecode ($lines);
  print WFILE $str;
}
close FILE;
close WFILE;

sub urldecode {
  my($string) = $_[0];
  $string =~ s/\+/ /g;    

  $string =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg;
  #$string =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("c",hex($1))/ge;

  return($string);  
}

#!/usr/bin/perl -w
use strict;
use Archive::Tar;
use File::Find;
use MIME::Lite;
use Net::SMTP;

sub sendmail();

my $email = ‘my.email@gmail.com’;
my $message_from = ‘Backup Script ‘;
my $message_body = "Here’s the attachment file(s) you wanted";

my $smtp_server = ‘smtp.server.com’;
my @archive_list;
my $backup_source = ‘/home/user/bin/’;
my $backup_folder = ‘svn’;
my $tar_file = ‘/home/user/temp/gmailtar.tgz’;

chdir($backup_source) || die "cannot change directory ($!)";

find (sub { push @archive_list, $File::Find::name }, $backup_folder);

Archive::Tar-&gt;create_archive($tar_file, "9", @archive_list);

sendmail();

unlink ($tar_file);

sub sendmail() {
my $msg = MIME::Lite-&gt;new(To =&gt; $email,
Subject =&gt; "Backup email",
From =&gt; $message_from,
Type =&gt; "multipart/mixed" ) or die "Error creating multipart container: $!\n";

$msg-&gt;attach (
Type =&gt; ‘TEXT’,
Data =&gt; $message_body
) or die "Error adding the text message part: $!\n";
$msg-&gt;attach(Type =&gt; "application/gzip",
Path =&gt; $tar_file,
Filename =&gt; "backup.tgz");
$msg-&gt;send(‘smtp’, $smtp_server);
}