#!/usr/bin/perl use strict; use warnings; use utf8; my $content = <>> =cut CONTENT