#!/usr/bin/perl
use warnings;
use strict;
use 5.010;


my $iban = 'LLPPBBBBBBBBKKKKKKKKKK';

my @array = unpack( "(A4)*", $iban );

say "@array";