#!/usr/bin/perl
use strict; use warnings; use Perl6::Say; use L;

use sane test => 1;

chdir "test";

my $in = slurp(\*STDIN);
$in =~ s/ \A .*? \b use \s+ sane \b .*? ;//xs;

my $out = sane::insanify($in);
print $out;