Select Code to Download

my $data = "spamspamspamspamusefuldataspamspamspam";
print("Data: " . (map { s/spam//g;$_; } ($data))[0] . "\n");

if ($expected !~~ $got) {
    print("Smartmatch failed comparing data\n");
...
    print("Got:\n");
    Devel::Peek::Dump $got;
}

Smartmatch failed comparing data
Expected:
...
  PV = 0xe0422e0 "0.00"\0
  CUR = 4
  LEN = 8

sub ReadXLS {
    my $ar_data;
...
    print(scalar @{$ar_data} . " records in [" . $benchmark->real . " 
+seconds], [" . (scalar @{$ar_data} / $benchmark->real) . " records/s]
+\n");
    return $ar_data;
}

$Interfaces::ExcelBinary::Headers = [];
# cell_handler (Workbook, Sheet_index, Row, Col, Cell)
...
    my $WorkBook    = $ExcelParser->parse($FileName);
print("Done parsing\n");
    exit;

#!/usr/bin/perl

use warnings;
...
$text3 =~ s/(.*)(.*)(??{reverse $1})/$2/;

print("Without common start [$text3]\n");

#!/usr/bin/perl

...
$text2 =~ s/^\Q$common//;

print "[$text1]\n[$text2]\n";