#!/usr/local/bin/perl

my $source = "before inline test test after inline";
my $inline = "| inline |";
my ($begin, $end) = (14, 23);

print "$source\n";
substr($source, $begin, $end-$begin, $inline);
print "$source\n";