#!/usr/bin/perl

use strict;
use warnings;

my $str = "foobar";

my $c1 = do {my @f = split // => $str};
my $c2 = () = split // => $str => -1;
my $c3 = () = split // => $str;

print "$c1 $c2 $c3\n";

__END__